home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
dialogic.zip
/
DIALOG12.DB
< prev
next >
Wrap
Text File
|
1990-01-31
|
4KB
|
165 lines
DBE(BoxNo, 1).Code = 1
DBE(BoxNo, 1).Y = 5
DBE(BoxNo, 1).X = 5
DBE(BoxNo, 1).Height = 21
DBE(BoxNo, 1).Wdth = 65
DBE(BoxNo, 1).BorderType = 1
DBE(BoxNo, 1).PrimaryColor = -c1
DBE(BoxNo, 1).WindowColor = -c1
DBE(BoxNo, 1).Text = "Updating On-The-Fly"
DBE(BoxNo, 1).TextColor = c2
DBE(BoxNo, 1).SecondaryColor = c1
ListBox(1).Text = "Black"
ListBox(2).Text = "Blue"
ListBox(3).Text = "Green"
ListBox(4).Text = "Cyan"
ListBox(5).Text = "Red"
ListBox(6).Text = "Magenta"
ListBox(7).Text = "Brown"
ListBox(8).Text = "White"
ListBox(9).Text = "Gray"
ListBox(10).Text = "Br Blue"
ListBox(11).Text = "Br Green"
ListBox(12).Text = "Br Cyan"
ListBox(13).Text = "Br Red"
ListBox(14).Text = "Br Magenta"
ListBox(15).Text = "Yellow"
ListBox(16).Text = "Br White"
ListBox(17).Text = "This is another example to show how a dialog box may be"
ListBox(18).Text = "updated on-the-fly."
DBE(BoxNo, 2).Code = 3
DBE(BoxNo, 2).Y = 2
DBE(BoxNo, 2).X = 2
DBE(BoxNo, 2).Height = 2
DBE(BoxNo, 2).Wdth = 1
DBE(BoxNo, 2).WindowColor = c1
DBE(BoxNo, 2).PrimaryColor = c1
DBE(BoxNo, 2).SecondaryColor = c2
DBE(BoxNo, 2).SelectedColor = -1
DBE(BoxNo, 2).StarColor = c1
DBE(BoxNo, 2).ItemLength = 60
DBE(BoxNo, 2).KeyColor = 0
DBE(BoxNo, 2).BorderType = 2
DBE(BoxNo, 2).Link = 0
DBE(BoxNo, 2).TextY = 0
DBE(BoxNo, 2).TextX = 0
DBE(BoxNo, 2).TextColor = 112
DBE(BoxNo, 2).NumberOne = 17
DBE(BoxNo, 2).NumberTwo = 18
DBE(BoxNo, 3).Code = 5
DBE(BoxNo, 3).NumberOne = 3
DBE(BoxNo, 3).Default = 1
DBE(BoxNo, 3).TextString = "9,5,11,5,13,5"
DBE(BoxNo, 3).WindowColor = c1
DBE(BoxNo, 3).SelectedColor = c1
DBE(BoxNo, 3).StarColor = c1
DBE(BoxNo, 4).Code = 6
DBE(BoxNo, 4).Y = 9
DBE(BoxNo, 4).X = 9
DBE(BoxNo, 4).Text = "~1. Normal Text"
DBE(BoxNo, 4).TextColor = c1
DBE(BoxNo, 4).KeyColor = c4
DBE(BoxNo, 4).Link = 3
DBE(BoxNo, 4).NumberOne = 1
DBE(BoxNo, 5).Code = 6
DBE(BoxNo, 5).Y = 11
DBE(BoxNo, 5).X = 9
DBE(BoxNo, 5).Text = "~2. Current Statement"
DBE(BoxNo, 5).TextColor = c1
DBE(BoxNo, 5).KeyColor = c4
DBE(BoxNo, 5).Link = 3
DBE(BoxNo, 5).NumberOne = 2
DBE(BoxNo, 6).Code = 6
DBE(BoxNo, 6).Y = 13
DBE(BoxNo, 6).X = 9
DBE(BoxNo, 6).Text = "~3. Breakpoint Lines"
DBE(BoxNo, 6).TextColor = c1
DBE(BoxNo, 6).KeyColor = c4
DBE(BoxNo, 6).Link = 3
DBE(BoxNo, 6).NumberOne = 3
DBE(BoxNo, 7).Code = 8
DBE(BoxNo, 7).Y = 6
DBE(BoxNo, 7).X = 2
DBE(BoxNo, 7).Height = 12
DBE(BoxNo, 7).Wdth = 60
DBE(BoxNo, 7).BorderType = 1
DBE(BoxNo, 7).SecondaryColor = c1
DBE(BoxNo, 7).Text = "Colors"'Centered Text
DBE(BoxNo, 7).TextColor = c1
DBE(BoxNo, 8).Code = 3
DBE(BoxNo, 8).Y = 8
DBE(BoxNo, 8).X = 32
DBE(BoxNo, 8).Height = 7
DBE(BoxNo, 8).Wdth = 1
DBE(BoxNo, 8).WindowColor = c1
DBE(BoxNo, 8).PrimaryColor = c1
DBE(BoxNo, 8).SecondaryColor = c2
DBE(BoxNo, 8).SelectedColor = -1
DBE(BoxNo, 8).StarColor = c1
DBE(BoxNo, 8).ItemLength = 10
DBE(BoxNo, 8).KeyColor = 0
DBE(BoxNo, 8).BorderType = 2
DBE(BoxNo, 8).Link = 0
DBE(BoxNo, 8).TextY = 0
DBE(BoxNo, 8).TextX = 0
DBE(BoxNo, 8).TextColor = c1
DBE(BoxNo, 8).NumberOne = 1
DBE(BoxNo, 8).NumberTwo = 16
DBE(BoxNo, 9).Code = 3
DBE(BoxNo, 9).Y = 8
DBE(BoxNo, 9).X = 46
DBE(BoxNo, 9).Height = 7
DBE(BoxNo, 9).Wdth = 1
DBE(BoxNo, 9).WindowColor = c1
DBE(BoxNo, 9).PrimaryColor = c1
DBE(BoxNo, 9).SecondaryColor = c2
DBE(BoxNo, 9).SelectedColor = -1
DBE(BoxNo, 9).StarColor = c1
DBE(BoxNo, 9).ItemLength = 10
DBE(BoxNo, 9).KeyColor = 0
DBE(BoxNo, 9).BorderType = 2
DBE(BoxNo, 9).Link = 0
DBE(BoxNo, 9).TextY = 0
DBE(BoxNo, 9).TextX = 0
DBE(BoxNo, 9).TextColor = c1
DBE(BoxNo, 9).NumberOne = 1
DBE(BoxNo, 9).NumberTwo = 8
DBE(BoxNo, 10).Code = 7
DBE(BoxNo, 10).Y = 20
DBE(BoxNo, 10).X = 30
DBE(BoxNo, 10).Text = "~OK"
DBE(BoxNo, 10).PrimaryColor = c1
DBE(BoxNo, 10).WindowColor = c1
DBE(BoxNo, 10).SelectedColor = c3
DBE(BoxNo, 10).KeyColor = c4
DBE(BoxNo, 10).SecondaryColor = c4
DBE(BoxNo, 10).Default = 1
DBE(BoxNo, 11).Code = 6
DBE(BoxNo, 11).Y = 7
DBE(BoxNo, 11).X = 33
DBE(BoxNo, 11).Text = "~Foreground"
DBE(BoxNo, 11).TextColor = c1
DBE(BoxNo, 11).KeyColor = c4
DBE(BoxNo, 11).Link = 8
DBE(BoxNo, 12).Code = 6
DBE(BoxNo, 12).Y = 7
DBE(BoxNo, 12).X = 47
DBE(BoxNo, 12).Text = "~Background"
DBE(BoxNo, 12).TextColor = c1
DBE(BoxNo, 12).KeyColor = c4
DBE(BoxNo, 12).Link = 9
DBE(BoxNo, 13).Code = 0